home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / modelers / geomview / source.lha / Geomview / src / bin / geomutil / math2oogl / Geomview.m < prev    next >
Text File  |  1993-10-27  |  706b  |  25 lines
  1. (*
  2.  * Geomview.m selects Geomview graphics as the default for Show
  3.  * of 3D graphics objects.  Others still use the default system.
  4.  * To restore normality, load <<GL.m or <<X11.m or etc.
  5.  *)
  6.  
  7. Needs["OOGL`"];
  8.  
  9. ClearAll[$DisplayFunction];
  10.  
  11. $DisplayFunction[g_Graphics3D] := Geomview[g];
  12. $DisplayFunction[g_SurfaceGraphics] := Geomview[g];
  13. $DisplayFunction[g_] := Display[$Display, g];
  14.  
  15. If[ !MemberQ[$CommandLine, "-noprompt"],
  16.    ( Print[" -- Geomview graphics initialized -- "];
  17.      If[(DisplayHost /. Options[Geomview]) != "",
  18.     Print["Geomview.m: graphics will display remotely on ",
  19.         DisplayHost /. Options[Geomview]];
  20.     Print["To change this, see DisplayHost in Options[Geomview]."]
  21.       ]
  22.    )
  23.   ];
  24.  
  25.